home *** CD-ROM | disk | FTP | other *** search
/ Safarir 3 / SafTV-CD3.iso / pc / Bonus / Dessins Animés / static / jeux / tetris.swf / scripts / frame_18 / DoAction.as
Text File  |  2001-11-21  |  398b  |  26 lines
  1. n = "0";
  2. yn = "0";
  3. while(n < "4")
  4. {
  5.    n += "1";
  6.    ts1 = ts + "1";
  7.    if(ts1 == "5")
  8.    {
  9.       ts1 = "1";
  10.    }
  11.    if("0" < eval("c" add (x + eval("x" add tc add ts1 add n) + "20") add (y + eval("y" add tc add ts1 add n) + "20")))
  12.    {
  13.       yn = "1";
  14.    }
  15. }
  16. if(yn == "0")
  17. {
  18.    call("delbox");
  19.    ts += "1";
  20.    if(ts == "5")
  21.    {
  22.       ts = "1";
  23.    }
  24.    call("addbox");
  25. }
  26.